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MODULE PATSCA ( ' Lexical scanner for PATCH 
ail EQL 1 
-_ ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = 
pom = 'v04-000' 


BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 2 
'® ALL RIGHTS RESERVED. * 
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; !® CORPORATION. 
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i FACILITY: PATCH 

ABSTRACT: 

: This module contains the routine called by the parser to get a 
3 translates on aiphe string into e keyuord token. 
ENVIRONMENT: STARLET, user mode, interrupts disabled. 

AUTHOR: Carol Peters, CREATION DATE: 13 September 1977 

MODIFIED BY: 

Kathleen Morse, 20 October 1977 : Version x01.00 

Revision History: 

NO DATE PROGRAMMER PURPOSE 
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£12, 
¥042000 bxgenn 1382 99:83: 
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! TABLE OF CONTENTS: 


FORWARD ROUTINE 
ATSGET_A_TOKEN, 
TRANS _LEXEME; 


INCLUDE FILES: 


LIBRARY ‘SYSS$LIBRARY:LIB. L32"; 
REQUIRE ‘SRC$:VXSMAC.REQ'; 
REQUIRE ‘SRCS$: PATPCT. ;REQ'; 
REQUIRE ‘SRCS$: :PATGEN. nee 
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REQUIRE "SRC$:SYSSER. REQ': 


2 
icH. SRCIPATSCA.B32; r 


! Extracts a token from the input buffer 
i Translates a lexeme into a token 


3 
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! formats a Line and outputs to the terminal 


PAT$fao_out; 


EXTERNAL ROUTINE 
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' Routine to set the mode level 
' Holds keywords for current syntax 


! Lexical analyzer 
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v04-000 14-Sep-1984 12:52:4 DISKSVMSMASTER:CPATCH.SRCIJPATSCA.B32;1 (3) 
GLOBAL ROUTINE PATSGET_A_TOKEN (INPUT_STG_DESC, LEXEME_STG_DESC) = ! Gets a token from input Line 


'e¢ 
! Functional description: 


Extracts a lexeme from the input stream by calling the routine 
PATSGET_MAR_LEXEME. Translates the lexeme to a token (sometimes a 
null operat ton) . Returns the token as the routine value and 

the ASCII opring representing the token in the character string 
pointed to by the pointer field of lexeme_stg_desc. Also returns 
the actual Length of the ASCII string of Ehe Texeme in the 


lejelelelelelelelelelelelelelelelolelo) 
DOOOOOOOOOOOOODOOOO0OO0DO 


‘ee 
Fill the lexeme buffer with zeroes. 


00 
s 113 1 
s 116 1 
3 33 1 
s 116 1 
s 117 1! 
; #118 1! 
; #4119 7% 
: 159 1! 
s 21 ee 
3 1$§ 1! 
s Ve 1! 
; \s¢ : Length field of lexeme_stg_desc. 
> 126 '} The pointer to the input buffer is updated and rewritten into 
; ist : the pointer field of INPUT_STG_DESC. 
$ 1¢2 ! Calling sequence: 
: 131 1! CALL PATSGET_A_TOKEN (INPUT_STG_DESC.rt.dd, LEXEME_STG_DESC.rt.dv) 
, i 0938 1! 
: 133 0939 1! Inputs: 
: 134 0940 1 | , 
3s. 133 0941 1! INPUT STG DESC = string descriptor to the input buffer. 
3 13 bk ! LEXEME_STG_DESC = varying string descriptor to the lexeme buffer. 
; «4138 0944 1! Implicit inputs: 
3; «4139 0945 1! 
: 140 0946 1! none 
: 161 0947 1! 
: pr 0948 1 ! Outputs: 
5 4 0949 1! 
> 144 0950 1! none 
s 145 0951 1! 
> 146 095 1! Implicit outputs: 
: 167 0953 1! 
3: 148 0954 1! none 
: 149 0955 1! : 
: 1506 0956 1 ! Routine value: 
3: «6151 0957 1! : 
: 152 0958 1! an encoded representation of the token found. 
s 855 ver Fi. 
3; 6154 0960 1 ! Side effects: 
s 155 0961 1! ” 
; 156 0962 1! The mode level is set to local. 
: 157 0963 1 !-- 
; 158 0964 1 
3; «6159 0965 2 BEGIN 
; 160 0966 2 
; «161 0967 § : : 
: 162 0968 LEXEME_STG_DESC: REF BLOCK C, BYTE); ! Descriptor of lexeme string 
. tes 0969 2 
> 164 0970 2 LOCAL 
3 162 0971 LEXEME_TYPE; ! Type of lexeme found 
: 16 
s 16 
: 16 2 


oon 


VAX-11 Bliss-32_V4.0-742 
DISKSVMSMASTER: CPATCH.SRCIPATSCA.B32; 
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MAXLEN] / 4)); 


' Set mode level to local 


DESC CDSC$W 
INPUT_STG_DESC, .LEXEME_STG_DESC); 
~STR_ TOKEN) 


D 
K 
RETURN TRANS_LEXEME (.LEXEME_STG_DESC) 


RETURN .LEXEME_TYPE; 


DSCSA_POINTER], (.LEXEME_STG_ 
SMAR GE ek ( 
: 7 


TLOCA 
XEME_TYPE EQL 
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! End of PATSGET_A_TOKEN 
_PATSPLIT,NOWRT , NOEXE ,0 
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_MOD_LVL 


OUT, PATSSET 


P.AAA 
_PATSCODE ,NOWRT,2 


.EXTRN PATSFAO 
“EXTRN PATSMAR 
“EXTRN PATSGL_ 


-PSECT 


KEYWORD_TABLE 
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PATSCA 1b-Se -1984 00:39:12 VAK=11 Bliss-32 V4.0-742 Page 9 PAT 
v04-600 1-Sep-19 4 90:33:18 DISKSVMSMASTER:CPATCH. SRCIPATSCA.B32: 1° (3) 
o07¢ 000 .ENTRY PATSGET_A_TOKEN, Save R2,R3,R4,R5,R6 : 0919 
4 08 AC p 0 MOVL EXEME_STG_DESC, R6 + 0976. 
0 A6 3 0 MOVZWL 8(R6),~RO : 
4 6 A DIVL , RO ; 
50 4 c4 900 MULL2 #4, RO : 
50 00 6E ” C a3 MOVCS #0, (SP), #0, RO, @4(R6) : 
DD 0001 PUSHL #3 t 0977. 
000000006 EF ; FB tt CALLS #1, PATS$SET_MOD_LVL ; | 
06 at bb 00055 pusmt — SRPUT STG DESC hth 
000000006 EF 05 FB Mii g CALLS #2, PAT$MAR_GET_LEX : 
00000047 += &F 50 D1 0002C CMPL = LEXEME_TYPE> #77 + 0979) 
09 12 00033 BNEQ  1$ : | 
56 DD 00035 PUSHL R6 : 0981 
00000000V EF 01 FB 00037 CALLS #1, TRANS_LEXEME : 
04 0003E 1$: RET > 0984 | 


; Routine Size: 63 bytes, Routine Base: _PATSCODE + 0000 
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v04=600 enn 138c 19:83:48 DISKSYMGMASTERSEPATON. SACIPATSCA.B32¢9%" (45 
180 ROUTINE TRANS_LEXEME (LEXEME_STG_DESC) = ! Translates a name into a keyword token 


'e¢ 
!' Functional description: 


Maps an pionsses te string onto an element in the keyword table. 


991 If the alphabetic string does not match a keyword, then the 
9444 token “‘alpha_str_token’ is returned. If the alphabetic string does match 
99 a keyword, then fhe token for the keyword is abstracted from 
Bae the keyword table and returned. 
Bae Calling sequence: 
3444 CALL TRANS_LEXEME (LEXEME_STG_DESC.rt.dv) 
1090 Inputs: 
139 LEXEME_STG_DESC = varying string descriptor for lexeme string 
1004 Implicit inputs: | 
The keyword table for the PATCH Language. 
Outputs: 
none | 


Implicit outputs: 


IND ALWAIIPOPUNINIPONININIDYD 2 2 2 2 PK HDOOCOCOCCOCOCOC OOOO OODOOOOMOOwwom 


none 
Routine value: 


The token for the keyword that matches the ASCII string. . 
or the ‘‘alpha_str_token"’ token, if no keyword matches the string. 


Side effects: 


Oe ee ee ee 


none 
BEGIN 
MAP ; 
LEXEME_STG_DESC: REF BLOCK C, BYTE); ! Lexeme string descriptor 
LOCAL 
KEYWORD_ENTRY : REF VECTOR C, BYTE); ! Address of a keyword record; 
KEYWORD_ENTRY = KEYWORD_TABLE (0); 
REPEAT 
BEGIN 
'e¢ 


i If the length of the keyword is at least as long as the lexeme found, 
! and the lexeme found is at least as long as the abbreviation of the 
' keyword, then try to match the strings. 


WINANS NONONONDY 9 2 2 a 


Bi Bo Be Be Oe Oe Oe Oe Oe Oe Oe Oe BH Se Se Be Be Be Se Se Be Oe Se SH Se Se Se Oe Se Be Oe Ss Be Se Oe OH es Os oe OH Oe Oe Os SH Oe Oe Se Os Oe Oe Oe OHSS SH Stee es 
POPINOPIPININNINNYIDINOPONYINIPONIPUNININININPINPINININININININININININININD 2 2 9 9 9 Os 
me ee ee ed ed ot = 8) = 3 od wd 
CDOCOCOOOCOCOCOCOCOCO COO OCO COO OOOOOOOOOOOOOoOoOOOoOO 
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IF (. KEYWORD ENTRY CKWORD LENGTH] GEQ .LEXEME_STG_DESC [DSC$W_LENGTH]) AND 
a (;LEXEME_STG_DESC COSCSW LENGTH] GEQ .KEYWORD_ENTRY CKWORD_ABBREV)) 


BEGIN 
| ‘If a keyword match is found, return the token equivalent. 
if “ CHSEQL (. LEXEME $16 DESC COSC$W_LENGTH] 
CHSPT RC: LEX EME STG DESC COs¢sa_ POINTER]), 
CTE XEME est Coscs NGTH], 
CHSPTR TRESODRD ENTRY sHebENe _NAMEJ)) 


RETURN .KEYWORD_ENTRY CKWORD_TOKEN]; 


THEN 
END; 


44 

i Keyword did not match. Advance the table p+ F ” 
i point to the next entry. If the first byte of t 

i next entry is zero, conclude that the table le" 

ie exhausted, and just return the alpha_str_token. 


KEYWORD ENTRY = KEYWORD ENTRY (0) 
YWORD_ENTRY CKWORD_LENGTH] + KWORD_OVERHEAD; 
If (. KEYWORD_ ENTRY’ CKWORD TOKEN] EQL 0)~ 


RETURN ALPHA_STR_TOKEN; 


i kk kk kk kk kt 
peopel ofelolelololelelelelelolelelelelelelelelolelelelolo) 


PAAR AARAAAAAE MIM & EE 
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—) 


END; 
ne. L1:1034 
expression appears in value-required context 


007C 00000 TRANS_LEXEME: 
WORD 


" e R2,R3,R4,R5,R6 ; 0985 

54 00000000" EF 9E 00002 MOVAB rey YWORD TABLE ; KEYWORD _ENTRY > 1034. 

56 04 AC D0 00009 MOVL LEXEME STG D ; 1042) 
55 02 A& 9A 0000D 18: MOVZBL 2(KEYWORD SENTRYS, R5 : 
55 66 B1 00011 CMPW ss (R6), RS : 
15 1A 00014 BGTRU 2$ ; 

50 01 AS 9A 00016 MOVZBL 1(KEYWORD_ENTRY), RO : 1043. 
rz 50 B1 00014 CMPW =e RO, -(R6) ; 

0c 1A 0001D BGTRU 2$ ; 

03 AG 04 B6 66 29 OOO1F CMPC (R6), 24(R6), 3(KEYWORD_ENTRY) > 1052) 
04 12 00025 BNEQ 2% ; 

50 64 9A 90087 MOVZBL (KEYWORD_ENTRY), RO + 1054 | 

54 03 A544 3 Ood28 23: MOVAB 3(R5)CKEYWORD ENTRY], KEYWORD_ENTRY : 1064 

64 95 00030 TSTB (KEYWORD_ENTRY) > 1065 | 
D9 12 00032 NEQ  1$ : 

50 47 BF 9A 00034 MOVZBL #71, RO > 1067 | 

04 00038 ET : 1069. 


; Routine Size: 57 bytes, Routine Base: _PATSCODE + 003F 


-—wJ 
<oO 
a> 


12. 
4). 


VAX=11 Bliss-32 V4.0-742 P 
DISKSVMSMASTERSCPATCH. SRCIPATSCA.B32¢1o° ( 


Be 99:53:08 


] 
1 


p 
p= 


me 

uw 
‘ 

=- 


14-Se 


Elapsed Time: 00:47.8 
Lines/CPU Min: 6090 
Lexemes/CPU-Min: 20576 
Memory Used: 99 pages 
Compivcation Complete 


Se Se Se Ge Se Se ae 


picieinseeanempenenntianaeivsienton 
13 

PATSCA 1hese =1984 :39:1 VAX-11 Bliss-32 V4 me Page 13 
oe ea een haa ot ea lg PN ddwOhasteRcchAton cecaparsca.e32n4% cds 
> 266 1070 END ! End of module 
|* 267 1071 O ELUDOM 

: PSECT SUMMARY 

: Name Bytes Attributes 

: _PATSPLIT 406 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, (CON,NOPIC,ALIGN(O) 

3 ~PATSCODE 120 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

; cat ee eee. a ene La aS Symbol g eoesecee Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32:1 18619 3 0 1000 00:01.9 

; Information: 1 

3 Warnings: 0 

; Errors: 0 

4 COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATSCA/OBJ=OBJ$:PATSCA MSRC$:PATSCA/UPDATE=(ENH$:PATSCA) 

Size: 120 code + 406 data bytes 
Run Time: 0:10.6 

| 


i eclaebihetilh cil naceicuabet  Laasncatagtieg eat iedaiiacisdcetactathl athe aetedlineitittasecstagianigatinail 


